home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / C-Communications / (c)c6.d64 / rainbow doc.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  157 lines
  1. 10 POKE53280,0:POKE53281,0:PRINT"[147]"
  2. 15 PRINT"[210]     [193]     [201]      [206]      [194]      [207]     [215]";
  3. 20 A$="[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  4. 30 PRINT"[149]"A$"[129]"A$"[158]"A$""A$"[154]"A$"";
  5. 40 PRINT"[208]    [210]     [207]     [212]     [207]     [195]    [207]    [204]"
  6. 50 PRINT:PRINT"        [210][193][156][201][158][206][159][194][154][207][150][215][146] PROTOCOL IS  A"
  7. 60 PRINT"        STATE-OF-THE-ART MODEM"
  8. 70 PRINT"        TRANSFER  PROGRAM  FOR"
  9. 80 PRINT"        THE [195]OMMODORE 64."
  10. 90 PRINT:  PRINT"        [193]LL FILES  CAN BE SENT"
  11. 100 PRINT"        ACROSS THE MODEM, EVEN"
  12. 110 PRINT"        RELATIVE FILES."
  13. 120 PRINT:PRINT  "        [210][193][156][201][158][206][159][194][154][207][150][215][146] IS INTELLIGENT"
  14. 130 PRINT  "        AND EASY TO ADD TO ANY"
  15. 140 PRINT  "        OF YOUR PROGRAMS."
  16. 150 GOSUB200
  17. 160 GOTO300
  18. 200 PRINT"";:FORG=1TO24:PRINT"";:NEXT
  19. 210 PRINT"    [158] PRESS  [210][197][212][213][210][206] [146][158] TO CONTINUE";
  20. 220 GETA$:IFA$<>CHR$(13)THEN220
  21. 230 RETURN
  22. 300 PRINT"[147]":PRINT
  23. 310 PRINT"[159][210][193][201][206][194][207][215] [210][197][211][201][196][197][211]: $C000 - $C941":PRINT"                 49152 - 51521"
  24. 320 PRINT:PRINT"[159][211][197][212][212][201][206][199] [205][197][205][207][210][217] [204][207][195][193][212][201][207][206][211]:":PRINT
  25. 330 PRINT"[196][201][211][208][204][193][217][160][211][215][201][212][195][200]..49197"
  26. 340 PRINT"[196][197][214][201][195][197]        ..49198"
  27. 350 PRINT"[194][204][207][195][203][160][211][201][218][197]    ..49199"
  28. 360 PRINT"[196][210][201][214][197]         ..49200"
  29. 370 PRINT"[195][207][205][205][213][206][201][195][193][212][201][207][206] ..49196":PRINT
  30. 380 PRINT"[159][207][208][212][201][207][206][193][204] [209][213][197][210][217] [204][207][195][193][212][201][207][206][211]:":PRINT
  31. 390 PRINT"[198][201][204][197] [212][217][208][197]     ..49193"
  32. 400 PRINT"[204][197][206][199][212][200]        ..49194 - 49195":PRINT
  33. 410 PRINT:PRINT"[159][193][195][212][201][214][193][212][201][206][199] [204][207][195][193][212][201][207][206][211]:":PRINT
  34. 420 PRINT"[212][210][193][206][211][205][201][212]      ..49152"
  35. 430 PRINT"[210][197][195][197][201][214][197]       ..49155"
  36. 460 GOSUB200
  37. 500 PRINT"[156][147][196][201][211][208][204][193][217] [211][215][201][212][195][200]: 49197":PRINT
  38. 510 PRINT"[208]OKING  A 1 IN THIS LOCATION  WILL TURN"
  39. 520 PRINT"ON  THE SCREEN DISPLAY.   [212]HIS MODE  IS"
  40. 525 PRINT"USED  IN TERMINAL  PROGRAMS  WHERE  THE"
  41. 530 PRINT"PROGRESS OF  THE TRANSFER  NEEDS  TO BE"
  42. 540 PRINT"MONITORED.   [201]F  SET   TO  0 ONLY [160]DISK"
  43. 550 PRINT"ERRORS  WILL BE  DISPLAYED.  [212]HIS  MODE"
  44. 560 PRINT"IS USED USUALLY IN A [194][194][211] PROGRAM."
  45. 600 PRINT:PRINT:PRINT:PRINT:PRINT"[156][196][197][214][201][195][197] [211][197][204][197][195][212]: 49198":PRINT
  46. 610 PRINT"[212]HE  NUMBER  OF THE DISK  DRIVE  DEVICE"
  47. 620 PRINT"MUST BE  POKED INTO THIS LOCATION.  [212]HE"
  48. 630 PRINT"NUMBER MUST  BE BETWEEN 8 AND 11 AND IN"
  49. 640 PRINT"DECIMAL (NOT [193][211][195][201][201]).":PRINT:GOSUB200:PRINT"[147]";
  50. 650 PRINT:PRINT"[156][194][204][207][195][203][160][211][201][218][197]: 49199":PRINT
  51. 660 PRINT"[212]HE NUMBER  OF BYTES  TO SEND PER  EACH"
  52. 670 PRINT"ITERATION OF THE TRANSFER IS POKED INTO"
  53. 680 PRINT"THIS LOCATION.  [212]HIS  IS ONLY NECESSARY"
  54. 690 PRINT"WHEN  TRANSMITTING.   [210]ECEIVING ADJUSTS"
  55. 700 PRINT"AUTOMATICALLY.   [194]LOCK  SIZE  SHOULD BE"
  56. 705 PRINT"BETWEEN 30 AND 255.":PRINT
  57. 710 PRINT:PRINT:PRINT"[156][196][210][201][214][197]: 49200":PRINT
  58. 720 PRINT"[212]HIS  LOCATION IS  USED  TO SELECT  THE"
  59. 730 PRINT"DRIVE  NUMBER  ON  A  DUAL  DISK  DRIVE"
  60. 740 PRINT"SYSTEM.  [201]T SHOULD  BE  POKED  WITH  AN"
  61. 750 PRINT"[193][211][195][201][201] 0 OR AN [193][211][195][201][201] 1, DEC 48 OR 49."
  62. 760 GOSUB200:PRINT"[147]";
  63. 800 PRINT:PRINT"[156][195][207][205][205][213][206][201][195][193][212][201][207][206]: 49196":PRINT
  64. 810 PRINT"[210][193][201][206][194][207][215] IS INTELLIGENT ENOUGH TO REPORT"
  65. 820 PRINT"SEVERAL   DIFFERENT   ERRORS  AFTER   A"
  66. 830 PRINT"TRANSFER.  [212]HE  NUMBER RETURNED IN THIS"
  67. 840 PRINT"LOCATION HAS THE FOLLOWING MEANINGS:":PRINT
  68. 850 PRINT"0)..[205]EANS NO ERROR,  TRANSFER COMPLETE."
  69. 860 PRINT"1)..[206]O  RESPONSE  FROM OTHER  COMPUTER."
  70. 870 PRINT"2)..[212]HERE   WAS  A  LOCAL  DISK  ERROR."
  71. 880 PRINT"3)..[201]F    TRANSMITING,    THIS    ERROR"
  72. 890 PRINT"    INDICATES  A  [198][201][204][197] [206][207][212] [198][207][213][206][196] ERROR."
  73. 900 PRINT"    [201]F RECEIVING, INDICATES A [196][201][211][203] [198][213][204][204]"
  74. 910 PRINT"    ERROR."
  75. 920 PRINT"4)..[207]THER   COMPUTER   SENT   A  [195][193][206][195][197][204]"
  76. 930 PRINT"    REQUEST."
  77. 940 PRINT"5)..[205]ULTIPLE  ATTEMPTS TO SEND A  BLOCK"
  78. 950 PRINT"    FAILED;    TRANSMISSION   PROBLEMS."
  79. 960 PRINT"6)..[207]PERATOR MANUALY CANCELED.  [212]HIS IS"
  80. 970 PRINT"    DONE  BY  PRESSING   THE  [195]OMMODORE"
  81. 980 PRINT"    LOGO  KEY  IN  THE LOWER  LEFT HAND"
  82. 990 PRINT"    CORNER OF THE KEYBOARD."
  83. 995 GOSUB200
  84. 1000 PRINT"[147][158][193][195][212][201][214][193][212][201][207][206]: 49152 AND 49155":PRINT
  85. 1010 PRINT"[210][193][201][206][194][207][215]  IS   VERY   AUTOMATIC.   [193]FTER"
  86. 1020 PRINT"SETTING  BLOCK  SIZE,  DRIVE AND DEVICE"
  87. 1030 PRINT"PUT  THE   FILE  NAME  TO  TRANSMIT  OR"
  88. 1040 PRINT"RECEIVE  IN  THE  [194][193][211][201][195]  VARIABLE  [206][205]$."
  89. 1050 PRINT"[212]O  TRANSMIT,  [211][217][211] 49152.   [212]O  RECEIVE"
  90. 1060 PRINT"[211][217][211] 49155.  [210][193][201][206][194][207][215]  WILL  DO ALL  FILE"
  91. 1070 PRINT"HANDLING.   [217]OU DO NOT  NEED TO SPECIFY"
  92. 1080 PRINT"FILE  TYPE,  LENGTH  OR  EVEN  OPEN THE"
  93. 1090 PRINT"FILE  FIRST,   LIKE   SOME   PROTOCOLS.":PRINT
  94. 1100 PRINT"[206][207][212][197]:  [210][211]-232  CHANNEL   MUST  BE  OPEN"
  95. 1110 PRINT"BEFORE ACTIVATING [210][193][201][206][194][207][215]."
  96. 1120 PRINT"E.X.: OPEN 5,2,0,C[200](6).":PRINT
  97. 1130 PRINT"[210][197][205][197][205][194][197][210]:  [194]LOCK SIZE NEED ONLY  BE SET"
  98. 1140 PRINT"WHEN TRANSMITTING.  [210]ECEIVER WILL AUTO-"
  99. 1150 PRINT"MATICALLY  ADJUST  TO THE  PROPER BLOCK"
  100. 1160 PRINT"SIZE.":PRINT
  101. 1170 GOSUB200:PRINT"[147]"
  102. 1180 PRINT"[211][208][197][195][201][193][204] [201][206][212][197][210][206][193][204][160][210][207][213][212][201][206][197]:":PRINT
  103. 1190 PRINT"[193]  [196][201][210][197][195][212][207][210][217]  LOOK  UP  ROUTINE  CAN BE"
  104. 1200 PRINT"CALLED FROM [194][193][211][201][195]:":PRINT:PRINT:PRINT
  105. 1210 PRINT"[153]1] [208]UT FILE NAME IN [206][205]$":PRINT
  106. 1220 PRINT"2] [211][217][211] 49158":PRINT
  107. 1230 PRINT"3] [198]ILETYPE RETURNED IN 49193 IN [193][211][195][201][201]":PRINT
  108. 1240 PRINT"4] [204]ENGTH RETURNED IN 49194 -49195":PRINT
  109. 1250 PRINT"5] [197]RROR RETURNED IN 49196:"
  110. 1255 PRINT"   1) [207][203][193][217]"
  111. 1260 PRINT"   2) [196]ISK ERROR"
  112. 1270 PRINT"   3) [198]ILE NOT FOUND."
  113. 1280 GOSUB200:PRINT"[147]";
  114. 1290 PRINT"[156][211]PEED UP FACTS:"
  115. 1300 PRINT
  116. 1320 PRINT"[210][193][201][206][194][207][215] USES TWO DIFFERENT SPEED UP"
  117. 1330 PRINT"TECHNIQUES.:":PRINT
  118. 1340 PRINT"1]  [193]LL  RS-232 HOLD-OFF DELAYS ARE SET"
  119. 1350 PRINT"    SET TO A MINIMUM.  [194]OTH TRANSMITING"
  120. 1360 PRINT"    AND  RECEIVING  DRIVES WILL  RUN AT"
  121. 1370 PRINT"    THE SAME TIME.":PRINT
  122. 1380 PRINT"2]  [193] BLOCK IS DIVIDED INTO THREE PARTS"
  123. 1390 PRINT"    [201]F  ONE  PART  IS  WRONG, ONLY  THE"
  124. 1400 PRINT"    NECESSARY PORTION IS RE-SENT."
  125. 1410 GOSUB200:PRINT"[147]";
  126. 1420 PRINT"[210][193][156][201][158][206][159][194][154][207][150][215][146] [208][210][207][212][207][195][207][204] WAS WRITTEN BY:":PRINT
  127. 1430 PRINT"[196]AVID [215]HATLEY & [205]IKE [196]ABBS, FOUNDERS:":PRINT
  128. 1440 PRINT"[129]        [196][197][197][208] [208][193][206] SOFTWARE CO.":PRINT
  129. 1450 PRINT"[201]F  YOU  FIND  [210][193][201][206][194][207][215] [208][210][207][212][207][195][207][204]  USEFUL"
  130. 1460 PRINT"AND  WISH  TO  SEND  A  DONATION OF  $5"
  131. 1470 PRINT:PRINT"[212]HE ADDRESS IS:":PRINT:PRINT:PRINT
  132. 1480 PRINT"[154]          [196][197][197][208] [208][193][206] [211][207][198][212][215][193][210][197]"
  133. 1485 PRINT"          C/O [196]AVID [215]HATLEY"
  134. 1490 PRINT"          #3 [198]AIRWAY CT."
  135. 1500 PRINT"          [198]LORISSANT [205][207]"
  136. 1510 PRINT"[160]                 63033"
  137. 1520 GOSUB200:PRINT"[147]";
  138. 1530 PRINT"[159][204][201][195][197][206][211][197] [212][207] [211][207][198][212][215][193][210][197] [193][213][212][200][207][210][211]:":PRINT
  139. 1540 PRINT"[210][193][201][206][194][207][215]  [208][210][207][212][207][195][207][204]  IS  PUBLIC  DOMAIN."
  140. 1550 PRINT"[193]NY  PERSON   WISHING  TO  USE  [210][193][201][206][194][207][215]"
  141. 1560 PRINT"[208][210][207][212][207][195][207][204]   IN  THEIR  OWN   PROGRAM  OR"
  142. 1570 PRINT"PROGRAMS,  FOR  SALE OR NOT, IS GRANTED"
  143. 1580 PRINT"PERMISSION SO LONG AS CREDIT IS CLEARLY"
  144. 1590 PRINT"GIVEN   TO  THE   AUTHORS   OF  [210][193][201][206][194][207][215]"
  145. 1600 PRINT"[208][210][207][212][207][195][207][204] IN THE APPROPRIATE SECTIONS OF"
  146. 1610 PRINT"CODE."
  147. 1620 PRINT:PRINT"[196][197][197][208] [208][193][206] [211][207][198][212][215][193][210][197]  IS  TO  BE  INFORMED"
  148. 1630 PRINT"PRIOR TO  RELEASING  A SOFTWARE PACKAGE"
  149. 1640 PRINT"CONTAINING   [210][193][201][206][194][207][215]   [208][210][207][212][207][195][207][204]   CODE."
  150. 1650 PRINT"[206]O ROYALTIES OR CHARGE OF ANY KIND WILL"
  151. 1660 PRINT"BE INCURRED.":PRINT
  152. 1670 PRINT"[210][193][201][206][194][207][215] [208][210][207][212][207][195][207][204]  AND IT'S MACHINE CODE"
  153. 1680 PRINT"ARE  COPYRIGHTED  BY  [196]EEP [208]AN [211]OFTWARE"
  154. 1690 PRINT"COMPANY,   ALL  RIGHTS  ARE   RESERVED."
  155. 1700 GOSUB200
  156. 1710 RUN
  157.